unit SetMarkerQueryFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  dxSkinsCore, dxSkinOffice2007Black, dxSkinOffice2007Blue,
  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
  dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
  dxSkinscxPCPainter, dxLayoutControl, cxContainer, cxEdit,
  dxLayoutcxEditAdapters, Menus, StdCtrls, cxButtons, cxTextEdit, cxMemo,
  dxLayoutControlAdapters, dxLayoutContainer;

type
  TSetMarkerQueryForm = class(TForm)
    dxLayoutControl1Group_Root: TdxLayoutGroup;
    dxLayoutControl1: TdxLayoutControl;
    Memo: TcxMemo;
    dxLayoutControl1Item1: TdxLayoutItem;
    Addr: TcxTextEdit;
    dxLayoutControl1Item2: TdxLayoutItem;
    cxButton1: TcxButton;
    dxLayoutControl1Item3: TdxLayoutItem;
    cxButton2: TcxButton;
    dxLayoutControl1Item4: TdxLayoutItem;
    cxButton3: TcxButton;
    dxLayoutControl1Item5: TdxLayoutItem;
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure cxButton3Click(Sender: TObject);
    procedure AddrKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetMarkerQueryForm: TSetMarkerQueryForm;

implementation

uses
  MainFrm, VDB;

{$R *.dfm}

procedure TSetMarkerQueryForm.AddrKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN: ModalResult:=mrYes;
  end;
end;

procedure TSetMarkerQueryForm.cxButton1Click(Sender: TObject);
begin
  ModalResult:=mrYes;
end;

procedure TSetMarkerQueryForm.cxButton2Click(Sender: TObject);
begin
  ModalResult:=mrOk;
end;

procedure TSetMarkerQueryForm.cxButton3Click(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

end.
